Admin_NewsEdit.asp 地方成人教育中心整站源代码 1 - ASP源码程序

www.gusucode.com > 地方成人教育中心整站源代码 1 > 地方成人教育中心整站源代码 1.0/manage/Admin_NewsEdit.asp
    <!--#include file="conn.asp"-->
<!--#include file="chkuser.asp"-->
<!--#include file="FCKeditor/fckeditor.asp" -->
<!--#include file="Function/Function_News.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="copyright" content="Copyright 2008 dananshan.com" />
<meta name="Author" content="闪电文章管理系统技术支持---www.dananshan.com" />
<meta name="Keywords" content="闪电文章管理系统文章管理系统" />
<meta name="Description" content="闪电文章管理系统文章管理系统" />
<title>添加企业新闻</title>
<link href="style.css" rel="stylesheet" type="text/css" />
<script src="../js/check.js" type="text/javascript"></script>
</head>
<body>
<%
'========判断是否具有管理权限
if Instr(session("AdminPower"),"|23,")=0 then 
	response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
	response.end
else
	if Request.QueryString ("Form")="Edit" then
		call Edit_Content()
	else
		call Add_Content()
	end if
end if
%>
</body>
</html>
<%
Function Add_Content()
	response.Write "<form method='post' action='?action=add'>"
	response.Write "<div id='frame_Toolbar' class='toolbarBg'>"
	response.Write "<a href='javascript:self.history.back();' class='icoBtn_ct'><span class='btnIco btnBack'></span><span class='btnTxt'>返回</span></a>"
	response.Write "<a href='javascript:self.location.reload();' class='icoBtn_ct'><span class='btnIco btnReload'></span><span class='btnTxt'>刷新</span></a><span class='split ftSplit' ></span>"
	response.Write "<div id='guide' class='light_orange'>请填写企业新闻！</div>"
	response.Write "<div class='pageInfo right light_gray'></div>"
	response.Write "</div>"
	response.Write "<table class='cTable_2 table'>"
	response.Write "<tr class='cTitle toolbarBg'>"
	response.Write "<td width='15%'><div>添加新闻</div></td>"
	response.Write "<td width='85%'>&nbsp;</td></tr>"
	response.Write "<tr>"
	response.Write "<td class='tRight'>新闻名称：</td>"
	response.Write "<td>"
	response.Write "<input name='NewsName' type='text' id='NewsName' style='width:250px;' onBlur='check_NewsName(this.value);'/>"
	response.Write "<input name='IsShow' type='checkbox' id='IsShow' value='checkbox' checked='checked' />发布&nbsp;<span id='span_NewsName'>请填写新闻名称</span>"
	response.Write "</td></tr>"
	response.Write "<tr>"
	response.Write "<td class='tRight'>所属类别：</td>"
	response.Write "<td>"
	response.Write "<select style='width:250px;' name='Sort' onBlur='check_NewsSort(this.value);'>"
    response.Write "<option value='0' selected='selected'>=============请选择类别=============</option>"
	sql="Select * From Idea_NewsSort order by id"
	set rs=idea.exec(sql,1)
	do while not rs.eof
    response.Write "<option value='"&rs("ID")&"'>"&rs("SortName")&"</option>"
	rs.movenext
	loop
	rs.close
	set rs=nothing
    response.Write "</select>&nbsp;<span id='span_NewsSort'>请选择新闻类别</span>"
	response.Write "</td></tr>"
	response.Write "<tr>"
	response.Write "<td class='tRight'>新闻来源：</td>"
	response.Write "<td>"
	response.Write "<input name='Source' type='text' id='Source' style='width:250px;' onBlur='check_NewsSource(this.value);'/>&nbsp;<span id='span_NewsSource'>请填写新闻来源(如：闪电文章管理系统)</span>"
	response.Write "</td></tr>"
	response.Write "<tr>"
	response.Write "<td class='tRight'>新闻发布者：</td>"
	response.Write "<td>"
	response.Write "<input name='Publisher' type='text' id='Publisher' style='width:250px;' onBlur='check_NewsPublisher(this.value);'/>&nbsp;<span id='span_NewsPublisher'>请填写发布者(如：闪电文章管理系统)</span>"
	response.Write "</td></tr>"
	response.Write "<tr>"
	response.Write "<td class='tRight'>新闻图片：</td>"
	response.Write "<td>"
	response.Write "<input name='spic' id='spic' type='text' style='width:250px;'>&nbsp;"
	response.Write "<input type='hidden' id='pic' name='pic' />"
	response.Write "<iframe src='up/upload.asp?Type=Pic&Class=News' scrolling='no' topmargin='0' width='275' height='24' marginwidth='0' marginheight='0' frameborder='0' align='center'></iframe>"
	response.Write "<input name='Update' type='button' class='button' id='Update' style='height:20px;' value='上传至内容' onclick='Uptocontent();'/>"
	response.Write "</td></tr>"
	response.Write "<tr>"
	response.Write "<td valign='top' class='tRight'>新闻内容：</td>"
	response.Write "<td>"
	Dim oFCKeditor
	Set oFCKeditor = New FCKeditor
	oFCKeditor.BasePath="fckeditor/"
	oFCKeditor.ToolbarSet="Idea"
	oFCKeditor.Width="550"
	oFCKeditor.Height="350"
	oFCKeditor.Value="请填写相关信息！"
	oFCKeditor.Create "Content"
	response.Write "</td>"
	response.Write "</tr>"
	response.Write "</table>"
	response.Write "<div id='cEndToolbar' class='toolbarBg'>"
	response.Write "<div class='caButCase'>"
	response.Write "<input type='submit' name='Btn_OK' id='Btn_OK' disabled='disabled' value='确认添加' class='button'>&nbsp;"
	response.Write "<input type='reset' name='Submit2' value='清空重填' class='button'>"
	response.Write "</div>"
	response.Write "</div>"
	response.Write "</form>"
End Function 

Function Edit_Content()
	ID=trim(request("ID"))
	if ID<>"" and IsNumeric(ID) then
	sql="select * from Idea_News where ID="&ID
	set rs=idea.exec(sql,1)
	do while not rs.eof
	response.Write "<form method='post' action='?Action=update&ID="&ID&"'>"
	response.Write "<div id='frame_Toolbar' class='toolbarBg'>"
	response.Write "<a href='javascript:self.history.back();' class='icoBtn_ct'><span class='btnIco btnBack'></span><span class='btnTxt'>返回</span></a>"
	response.Write "<a href='javascript:self.location.reload();' class='icoBtn_ct'><span class='btnIco btnReload'></span><span class='btnTxt'>刷新</span></a><span class='split ftSplit' ></span>"
	response.Write "<div id='guide' class='light_orange'>请填写企业信息！</div>"
	response.Write "<div class='pageInfo right light_gray'></div>"
	response.Write "</div>"
	response.Write "<table class='cTable_2 table'>"
	response.Write "<tr class='cTitle toolbarBg'>"
	response.Write "<td width='15%'><div>添加新闻</div></td>"
	response.Write "<td width='85%'>&nbsp;</td></tr>"
	response.Write "<tr>"
	response.Write "<td class='tRight'>新闻名称：</td>"
	response.Write "<td>"
	response.Write "<input name='NewsName' type='text' id='NewsName' style='width:250px;' value='"&rs("NewsName")&"' onBlur='check_NewsName(this.value);'/>"
	if rs("IsShow")=true then
	response.Write "<input name='IsShow' type='checkbox' id='IsShow' value='checkbox' checked='checked' />发布&nbsp;<span id='span_NewsName'>请填写新闻名称</span>"
	else
	response.Write "<input name='IsShow' type='checkbox' id='IsShow' value='checkbox' />发布&nbsp;<span id='span_NewsName'>请填写新闻名称</span>"
	end if
	response.Write "</td></tr>"
	response.Write "<tr>"
	response.Write "<td class='tRight'>所属类别：</td>"
	response.Write "<td>"
	response.Write "<select style='width:250px;' name='Sort' onBlur='check_NewsSort(this.value);'>"
    response.Write "<option value='0'>=============请选择类别=============</option>"
	sql1="Select * From Idea_NewsSort order by id"
	set rs1=idea.exec(sql1,1)
	do while not rs1.eof
    response.Write "<option value='"&rs1("ID")&"'"
	if cint(rs1("ID"))=rs("SortID") then 
	response.Write " selected='selected'"
	end if
	response.Write ">"&rs1("SortName")&"</option>"
	rs1.movenext
	loop
	rs1.close
	set rs1=nothing
    response.Write "</select>&nbsp;<span id='span_NewsSort'>请选择新闻类别</span>"
	response.Write "</td></tr>"
	response.Write "<tr>"
	response.Write "<td class='tRight'>新闻来源：</td>"
	response.Write "<td>"
	response.Write "<input name='Source' type='text' id='Source' style='width:250px;' value='"&rs("Source")&"' onBlur='check_NewsSource(this.value);'/>&nbsp;<span id='span_NewsSource'>请填写新闻来源(如：闪电文章管理系统)</span>"
	response.Write "</td></tr>"
	response.Write "<tr>"
	response.Write "<td class='tRight'>新闻发布者：</td>"
	response.Write "<td>"
	response.Write "<input name='Publisher' type='text' id='Publisher' style='width:250px;' value='"&rs("Publisher")&"' onBlur='check_NewsPublisher(this.value);'/>&nbsp;<span id='span_NewsPublisher'>请填写发布者(如：闪电文章管理系统)</span>"
	response.Write "</td></tr>"
	response.Write "<tr>"
	response.Write "<td class='tRight'>新闻图片：</td>"
	response.Write "<td>"
	response.Write "<input name='spic' id='spic' type='text' style='width:250px;' value='"&rs("sNewsPic")&"'>&nbsp;"
	response.Write "<input type='hidden' name='pic' id='pic' value='"&rs("NewsPic")&"'/>"
	response.Write "<iframe src='up/upload.asp?Type=Pic&Class=News' scrolling='no' topmargin='0' width='275' height='24' marginwidth='0' marginheight='0' frameborder='0' align='center'></iframe>"
	response.Write "<input name='Update' type='button' class='button' id='Update' style='height:20px;' value='上传至内容' onclick='Uptocontent();'/>"
	response.Write "</td></tr>"
	response.Write "<tr>"
	response.Write "<td valign='top' class='tRight'>新闻内容：</td>"
	response.Write "<td>"
	Dim oFCKeditor
	Set oFCKeditor = New FCKeditor
	oFCKeditor.BasePath="fckeditor/"
	oFCKeditor.ToolbarSet="Idea"
	oFCKeditor.Width="550"
	oFCKeditor.Height="350"
	oFCKeditor.Value=rs("Content")
	oFCKeditor.Create "Content"
	response.Write "</td>"
	response.Write "</tr>"
	response.Write "</table>"
	response.Write "<div id='cEndToolbar' class='toolbarBg'>"
	response.Write "<div class='caButCase'>"
	response.Write "<input type='submit' name='Btn_OK' id='Btn_OK' value='确认修改' class='button'>&nbsp;"
	response.Write "<input type='reset' name='Submit2' value='清空重填' class='button'>"
	response.Write "</div>"
	response.Write "</div>"
	response.Write "</form>"
	rs.movenext
	loop
	rs.close
	set rs=nothing
	end if
End Function 
%>
<script language="javascript">
    function Uptocontent()
	{
	    if (document.getElementById("pic").value!="")
		{
		    FCKeditorAPI.GetInstance("Content").SetHTML(FCKeditorAPI.GetInstance("Content").GetXHTML(true)+"<div align=center><img src='/"+document.getElementById("pic").value+"'></div>"); 
	    }
	}
</script>